!----------------------------egs5_stack.f-------------------------------
! Version: 051219-1435
!          080425-1100
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

      common/STACK/           
     * e(MXSTACK),      
     * x(MXSTACK),                                          
     * y(MXSTACK),                                          
     * z(MXSTACK),                                          
     * u(MXSTACK),                             
     * v(MXSTACK),                             
     * w(MXSTACK),                             
     * uf(MXSTACK),         
     * vf(MXSTACK),
     * wf(MXSTACK),
     * dnear(MXSTACK),          
     * wt(MXSTACK),                                    
     * k1step(MXSTACK),      
     * k1rsd(MXSTACK),       
     * k1init(MXSTACK),      
     * time(MXSTACK),
     * deinitial, 
     * deresid, 
     * denstep,
     * iq(MXSTACK),        
     * ir(MXSTACK),                                      
     * latch(MXSTACK),                               
     * np,                                         
     * latchi                        

      real*8 x,y,z,u,v,w,uf,vf,wf,dnear,wt
      real*8 e,time
      real*8 k1step,k1rsd,k1init
      real*8 deinitial, deresid, denstep
      integer iq,ir,latch,np,latchi

!------------------------last line of egs5_stack.f----------------------
